Informationen zum Forum Inventor VBA:
Anzahl aktive Mitglieder: 733
Anzahl Beiträge: 9.179
Anzahl Themen: 1.915

Im Beitrag/Titel Nur im Titel Nur nach Datum sortieren Docs / Anhänge mit Lösung
Suchmaschinenstatistik
Livesuche
Einstellungen
Info

Auch mit chatGPT* können Lösungen aus dem CAD.de-Forum recherchiert werden:

* chatGPT ist eine eingetragene Marke von openAI

Ergebnisse 1 - 2, 2 Gesamtergebnisse mit Suchbegriffen megacad in dxf konvertieren sec.
Inventor VBA : Messung mit VBA zu einem Spline
PaulSchuepbach am 14.01.2011 um 13:06 Uhr (0)
Hallo,also wenn ich das so mache, dann klappts:Code:Private Sub getDist() Dim oApp As Inventor.Application Set oApp = ThisApplication Dim oDoc As Inventor.AssemblyDocument Set oDoc = oApp.ActiveDocument Debug.Print oApp.MeasureTools.GetMinimumDistance(oDoc.SelectSet(1), oDoc.SelectSet(2))End SubWie holst Du oElement1 und oElement2? Du muss diese uU. vorher nur in Object konvertieren (das SelectSet liefert Daten vom Typ Object).HTH------------------Grüsse, PaulInventor-Programmierung, Inventor-Tools und ...
In das Form Inventor VBA wechseln
INVENTOR VBA : einen Kreis skizzieren
PaulSchuepbach am 19.05.2004 um 13:01 Uhr (0)
Hallo Simon, erst einmal Willkommen in Inventor-VBA Forum. Ich habe Dein Prog nicht getestet, aber schau Dir in der API -Hilfe die Methode SketchCircles.AddByCenterRadius mal genau an. Als zweites Argument wird der Kreis-Radius als DOUBLE verlangt - Du uebergibst aber einen String. Also erst in eine Double-Variable konvertieren, z.B. Dim myRad As Double myRad = CDbl(txtRadDrchmsr.Text) Set oCircle = oSketch.SketchCircles.AddByCenterRadius(oCoord, myRad) Im weiteren rufst Du Deine Kreis-Sub auf und ueb ...
In das Form INVENTOR VBA wechseln

Anzeige:

Anzeige: (Infos zum Werbeplatz)

Alle Produkt-, Schrift-, Firmennamen und Logos sind Warenzeichen oder eingetr. Warenzeichen der jeweiligen Firmen.
©2026 CAD.de , Lenggries. Tel: ++49 (8042) 973 8208 | Datenschutz